Головна » Файли » Готові скрипти
Скрипт для пошуку ділянок за списком кад.номерів по Публічній кадастровій карті
[ Викачати з сервера (5.6 Kb) ] 30.11.2017, 16:01

Даний скрипт більше не актуальний, оскільки в програму Digitals уже додана можливість через меню Реєстри - Земельна ділянка шукати кадастрові номер зразу за цілим списком (раніше можна було тільки по одному). І через це даний скрипт не просто перестав бути потрібний, а й перестав працювати, оскільки по-іншому стали вводитися значення в меню Реєстри - Земельна ділянка.

Перевірити, чи є ділянки на ПКК можна іншим скриптом - Перевірка наявності ділянок на ПКК

Для встановлення скачайте прикріплений файл та помістіть в папку з програмою Digitals. Перезапустіть програму. В результаті появиться нова кнопка: 

Перед запуском потрібно просто скопіювати в буфер обміну список (в стовпчик) кадастрових номерів, які треба знайти на публічній кадастровій карті. В результаті пошуку, на кожній знайденій ділянці появиться маркер із підписом кадастрового номера.

І повідомлення про результати пошуку:

Категорія: Готові скрипти | Додав: Микола
Переглядів: 3492 | Завантажень: 457 | Коментарі: 13 | Рейтинг: 0.0/0
Всього коментарів: 13
avatar
0 Спам
12 vad • 18:51, 15.11.2023
Добрий вечір. Микола, можете оновити скрипт у зв'язку з добавленням розробниками Digitals функції "Центроїдів ділянок"???
avatar
0
13 Микола • 00:11, 22.11.2023
Добрий вечір. Цей скрипт до kadastr.live не має відношення. Він працював виключно з ПКК. Але оновив інший скрипт в плані пошуку ділянок за кадастровим номером на сайті kadastr.live. Дивіться тут.
avatar
0 Спам
9 sergeyigorovich9 • 12:10, 08.11.2019
Доброго дня, підскажіть будь ласка яким чином можна зробити щоб програма сама витягувала кадастрові номери суміжних земельних ділянок із публічної кадастрової карти через слой "Карта"?
Напівавтоматично ця дія робитьтся подвійним кліком на ділянку. Чи можна автоматизувати повністю весь цей процес. 
Буду вдячний за допомогу
avatar
1
10 Микола • 12:39, 08.11.2019
Доброго дня
Є функція, яка читає інформацію з ПКК за аналогом подвійного клацання ЛКМ - @Map.GetPublicMapParcelInfo
Їй потрібно в атрибутах задати координати (Х У) точки на карті, з якої читати інформацію на ПКК.
Відповідь: Такий скрипт реалізовано в модулі "Документація".
Там алгоритм такий, що від центру ділянки прокладаються промені в сторону кожного суміжника. Потім ці промені обрізаються на відстані 5 метрів за контуром ділянки і читається координата кінця цього відрізку. І потім по тих координатах читаються кадастрові номери суміжників.
avatar
0 Спам
11 sergeyigorovich9 • 15:24, 08.11.2019
дякую
avatar
0 Спам
7 mwmwmw99999 • 13:24, 06.03.2018
Дякую. чудовий скрипт. Гарно все качає. Питання, як модифікувати файл, щоб зчитування відбувалося не з буфера, а з текстового файлу або ікселю, де кадастроі номери у стовпчику? Зараз якраз читаю Ваші статті стосовного даної скриптової мови, проте вирішувати задачі потрібно вже зараз.
avatar
0
8 Микола • 18:21, 06.03.2018
Контекстне меню кнопки - Змінити кнопку. Вгорі знайдіть рядок
@Text[N].Paste
та замініть на
$WorkPapka=@Dialog.SelectFolder Виберіть папку з файлами для опрацювання
@if $WorkPapka= then @break
@Text.FolderListTree *.xml $WorkPapka
avatar
0 Спам
5 magna949494 • 19:31, 04.01.2018
Спасибо большее, с этим разобрался и понял, но подскажите еще как сделать что бы в маске например *=Значення1 было  утверждение да или нет по выбору
зарание спасибо! 
С УВ. Антон
avatar
0
6 Микола • 20:30, 05.01.2018
...@ Пункт1:YesNo.txt $V...,
де YesNo.txt - текстовий файл у папці Lists із потрібними значеннями для вибору
в даному випадку це:
так
ні
avatar
0 Спам
3 magna949494 • 21:41, 02.01.2018
Доброго дня, а подскажите пожалуйста как сделать в скрипту, что бы выводилось окно с вопросом на ввод текста или выбор текста, но сразу два, три разных вопросов....
avatar
0
4 Микола • 21:42, 03.01.2018
$V=@Calc Char(124)
$V=@DequoteText $V
@Map.DeselectAll
$N=@Map.NewObject ID10000
@Map.Object[$N].Point[1] 100 100
@Map.RefreshObject $N
@Map.SelectObject $N
@SelectTab 3
;створюємо параметр ID12345 при його відсутності
$Par=@Map.Parameters.Get ID12345
@if $Par= then @Map.Parameters.Add 12345 5 Вибір чогось
;добавляємо параметр ID12345 в список доступних шару ІН4 Квартал
$ParDil=@Map.Layers.GetValidParameters ID12345
@Map.Layers.SetValidParameters ID10000 $ParDil ID12345
@Map.Parameters.Mask ID12345 *=Значення1,*=Значення2,*=ще щось@ Пункт1$V Пункт2$V Ще щось
@Dialog.EditParameter ID12345
$AVse=@Map.Object[$N].Parameter[ID12345]
$Z1=@StringPart 1,$AVse
$Z2=@StringPart 2,$AVse
$Z3=@StringPart 3,$AVse
@Dialog.Message $Z1|$Z2|$Z3
avatar
0 Спам
1 kovboj4754 • 11:31, 08.12.2017
як ним користуватися?
avatar
0
2 Микола • 21:41, 08.12.2017
скопіювати в буфер список кадастрових номерів і натиснути кнопку
Увійдіть:
avatar